home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / applications / databases / addressm2.1.lha / AddressM2.1 / Install / English < prev   
Encoding:
Text File  |  1980-01-06  |  2.9 KB  |  144 lines
  1. ;
  2. ;    $VER: Install-AddressManager 2.1 (04.07.94)
  3. ;
  4. ;    Install script for AddressManager 2.1
  5. ;    © Copyright 1994 by Michael Schikora
  6. ;    All Rights Reserved
  7. ;    
  8. (set intro
  9. (cat "\n Installation of AddressManager 2.1\n\n"
  10.      " ©1994 by Michael Schikora  \n"
  11.      " All Rights Reserved\n\n"
  12. ))
  13.  
  14. (set bad-kick
  15. (cat "\n\n\nYou must be using at least Kickstart 2.04 (Version 37.175) !"
  16. ))
  17.  
  18. (set copying-AM
  19. (cat "Copying the AddressManager program ..."
  20. ))
  21.  
  22. (set copying-catalogs
  23. (cat "Copying the catalog files for AddressManager ..."
  24. ))
  25.  
  26. (set copying-docs
  27. (cat "Copying docs for AddressManager ..."
  28. ))
  29.  
  30. (set which-languages
  31. (cat "\nWhich languages should be installed ?"
  32. ))
  33.  
  34. (set which-languages-help
  35. (cat "The Amiga, and AddressManager, normally use the "
  36.      "english language. As you have Workbench(tm) 2.1 or better, "
  37.      "you can make the Amiga use other languages.\n"
  38.      "If you want AddressManager to use the same languages as the Workbench "
  39.      "then a catalog file must be copied to your system disk for each "
  40.      "language supported.\n"
  41.      "Simply check the boxes of the languages you wish to have available "
  42.      "on your system.\n\n\n\n\n"
  43.      @askoptions-help
  44. ))
  45.  
  46. (set install-help
  47. (cat "\n\n\n\n\n\nDo you want to install the docs ?"
  48. ))
  49.  
  50. (set install-help-help
  51. (cat "The documentation may be usefull if you work with AddressManager.\n"
  52. ))
  53.  
  54. (set choose (cat "Select a directory\n"))
  55.  
  56. ; Kickstart version test
  57.  
  58. (if (< (/ (getversion) 65536) 37)
  59. (
  60.  (abort bad-kick)
  61. ))
  62.  
  63. (welcome intro)
  64.  
  65. (set @default-dest "SYS:")
  66.  
  67. (set destination (cat (askdir(prompt choose)(help copyingAM)(default "sys:")(newpath)(disk))))
  68.  
  69. (copyfiles
  70.   (prompt copying-AM)
  71.   (help @copylib-help)
  72.   (source "/AddressManager")
  73.   (dest destination)
  74.   (infos)
  75.   (optional force askuser)
  76. )
  77.  
  78. ; install catalogs
  79.  
  80.   (set languages 
  81.     (askoptions 
  82.       (prompt which-languages)
  83.       (help   which-languages-help)
  84.       (choices
  85.         "english"
  86.         "deutsch"
  87.       )
  88.     )
  89.   )
  90.  
  91. (if (exists "Locale:catalogs")
  92. (
  93.   (set n 1)
  94.   (while (set language (select n
  95.            "english"
  96.            "deutsch"
  97.            ""
  98.          ))
  99.   (
  100.     (if (IN languages n)
  101.     (
  102.       (copyfiles
  103.         (prompt copying-catalogs)
  104.         (help @copylib-help)
  105.         (source (cat "/catalogs/" language "/AddressManager.catalog"))
  106.         (dest (cat "Locale:catalogs/" language))
  107.         (optional force askuser)
  108.       )
  109.     ))
  110.     (set n (+ n 1))
  111.   ))
  112. )
  113. (
  114.   (set languages 0)
  115. ))
  116.  
  117.   (if(askbool
  118.        (prompt install-help)
  119.        (help install-help-help)
  120.        (default 1)
  121.      )
  122.   (
  123.     (set n 0)
  124.     (while (set language (select n
  125.              "english"
  126.              "deutsch"
  127.              ""
  128.            ))
  129.     (
  130.       (if (IN languages n)
  131.       (
  132.         (copyfiles
  133.           (prompt copying-docs)
  134.           (help @copylib-help)
  135.           (source (cat "/docs/" language) )
  136.           (all)(infos)
  137.           (dest destination)
  138.           (optional force askuser)
  139.         )
  140.       ))
  141.       (set n (+ n 1))
  142.     ))
  143.   ))
  144.